home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / editor / jmedia20.zip / JMDEMO2.EXE / CATALOG.J < prev    next >
Text File  |  1995-01-03  |  2KB  |  80 lines
  1. 'Setup  320x200x16 screen
  2. Screen 3
  3. KillMouseFields
  4.  
  5. 'Create a background using one of the standard patterns
  6. FillStyle xHatchFill Green
  7. Bar 0 0 +320 +200
  8.  
  9. 'break screen into a 100x100 area
  10. SetDimensions 320 200 100 100
  11.  
  12. 'create metalic window. You specify the entire path for the filename
  13. 'eg. Wizard 5 5 +96 +78 c:\jmedia\metwin.wiz
  14. Wizard 5 5 +96 +78 metwin.wiz
  15.  
  16. 'window description
  17. Color DarkGray
  18. TextXY 8 9 SHAREWARE SOFTWARE
  19.  
  20. 'set button style fields
  21. ButtonStyle.Width 50
  22. ButtonStyle.Height 16
  23. ButtonStyle.Orient 2
  24. ButtonStyle.BevSize 2
  25. ButtonStyle.DFore White
  26. ButtonStyle.DBack 0
  27. ButtonStyle.Bright 15
  28. ButtonStyle.Dark 8
  29. ButtonStyle.Surface Blue
  30. ButtonStyle.GroupNum 0
  31. ButtonStyle.UlineCol 14
  32. ButtonStyle.CornerCol 7
  33. ButtonStyle.IconButton OFF
  34. ButtonStyle.PlainButton ON
  35. ButtonStyle.ClipButton OFF
  36. ButtonStyle.Mouse ON
  37. ButtonStyle.Invertable OFF
  38. ButtonStyle.Reset OFF
  39. ButtonStyle.Chisel OFF
  40. ButtonStyle.Recess OFF
  41. ButtonStyle.Shadow ON
  42. ButtonStyle.Stamp OFF
  43. ButtonStyle.Bevel ON
  44. ButtonStyle.Underline OFF
  45. ButtonStyle.HotIcon OFF
  46. ButtonStyle.ADJ OFF
  47. ButtonStyle.RadioGroup OFF
  48. ButtonStyle.Sunken ON
  49. ButtonStyle.CheckBoxGroup OFF
  50. ButtonStyle.HighlightKey OFF
  51. ButtonStyle.Explode OFF
  52. ButtonStyle.LeftJustify OFF
  53. ButtonStyle.RightJustify OFF
  54. ButtonStyle.Selected OFF
  55. ButtonStyle
  56.  
  57. 'Setup small font to be used with buttons
  58. FontStyle Small HorizDir 4
  59.  
  60. 'Create buttons and use remapkey to remap buttons to use extended
  61. 'up/down arrow keys
  62.  
  63. Button 46 88 0 0 u <>UP<>MOVEUP
  64. RemapKey u #18432
  65. Button 65 88 0 0 d <>DOWN<>MOVEDOWN
  66. RemapKey d #20480
  67. Button 84 88 0 0 #32 <>OK<>SAVEPOS^MACCEPT^M
  68.  
  69. 'Will restore previous selected position in the picklist window
  70. 'has no effect the first time it is executed
  71. Push RESTOREPOS
  72.  
  73. 'Create a picklist window
  74. TextWindow 3 4 +33 +15 NO 0
  75. TextBackground Blue
  76.  
  77. 'Start picklist
  78. PickList Titles.PL
  79.  
  80.